<%
Set busca=Server.CreateObject("ADODB.Recordset")
Set ot=Server.CreateObject("ADODB.Recordset")
cantidadregistros=10
if request.querystring("paginaactual")<>"" then
mostrarpagina=request.querystring("paginaactual")
else
mostrarpagina=1
end if
Set rs=Server.CreateObject("ADODB.Recordset")
Set rs1=Server.CreateObject("ADODB.Recordset")
Set rs2=Server.CreateObject("ADODB.Recordset")
rs1.cachesize=60
if request.querystring("c")="1" or request.querystring("c")=1 then
sqlp="SELECT * from TITULOS_POLIFONICAS where ver='s' and top10<>0 order by top10"
elseif request.querystring("c")="2" or request.querystring("c")=2 then
sqlp="SELECT * from TITULOS_POLIFONICAS where ver='s' and novedad='s' order by cod_cancion desc"
else
sqlp="SELECT * from TITULOS_POLIFONICAS where ver='s' and categoria=" &request.querystring("c")& " order by cod_cancion desc"
end if
sqlpo=sqlp
'sqlpo="SELECT * from titulos_polifonicas where categoria="&request.querystring("c")&" and ver='s' order by cod_cancion desc"
rs1.open sqlpo,conexion,1,1
registros=0
if not rs1.eof then
rs1.pagesize=cantidadregistros
maxpagina=cint(rs1.pagecount)
maxregistros=cint(rs1.pagesize)
rs1.absolutepage=mostrarpagina
contreg=0
'paginacion
cero="0"
nombrescript=request.servervariables("script_name")
if int(mostrarpagina)<>1 then '--si no es la primer página mostrar botón atrás
ref="< "
end if
for contador=1 to maxpagina
If contador>9 then
cero=""
end if
ref=ref & " " & cero & contador & ""
else
ref=ref & "'>" & cero & contador & ""
end if
next
if int(mostrarpagina)<>int(maxpagina) then '-- si no es la última página
' mostrar botón siguiente
ref=ref & " >"
end if%>
Melodias - <%=titulo_pagina%>
Ref
Oir
Autor/ Canción
<%bg="#CCCCCC"%>
<%
if int(mostrarpagina)<>int(maxpagina) then '-- Si no es la última página.
hasta=mostrarpagina*5
desde=hasta-4
else
hasta=rs1.recordcount
desde=(maxpagina*5)-4
end if
dim salir,registros
salir=0
registros=0
do while not rs1.eof and contreg < maxregistros
autor=rs1("autor")
if rs1("verautor")="N" then
autor=""
end if
%>
<% rs1.MoveNext
registros=registros + 1
contreg=contreg+1
if rs1.Eof or registros > maxregistros then
salir=1
exit do
end if%>
<%if bg="#CCCCCC" then
bg="#EEEEEE"
elseif bg="#EEEEEE" then
bg="#CCCCCC"
end if%>
<%loop%>
<%
response.write ref
%>
INSTRUCCIONES
DE USO
1. Selecciona la marca:
2. Envia un mensaje con el texto: ASPOL seguido de un espacio y la referencia de la melodia al 7740
Instrucciones:
Precio 0,9 €/sms +IVA - Son necesarios 2 mensajes
Algun problema con el envio?info@genexies.com
<%musicas.Close
set musicas=Nothing
tipo_musica.Close
clase_musica.Close
Set tipo_musica=Nothing
Set clase_musica=Nothing
%>
<%
else
Response.Redirect "melodia8.asp?idafiliado='"&afiliadox&"'"
end if%>
<%conexion.close%>
